      subroutine trangl

      use param
      use allocs

#include <global.h>
      include 'ntbytes.h'
      include 'geom.h'
      include 'geomf.h'
      include 'xsec.h'
      include 'eigv.h'
      include 'cmfdp1.h'
      include 'nem.h'

!     Incoming Partial Current
      do im=1,ng
        j=1
        do i=1,tnode
          jinl(1,j,im)=ajil(1,i,im)
          jinl(2,j,im)=ajil(2,i,im)
          jinr(1,j,im)=ajir(1,i,im)
          jinr(2,j,im)=ajir(2,i,im) 
          j=j+fn(i)
        enddo
      enddo

!     Source
      do im=1,ng
        jb=1
        je=0
        do i=1,tnode
          je=je+fn(i)
          do j=jb,je
            nemsrc(j,im)=src(1,i,im)
          enddo
          jb=j
        enddo
      enddo

      end subroutine
